home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CURSOR.ZIP / CURSOR.TXT < prev    next >
Encoding:
Text File  |  1995-04-09  |  949 b   |  31 lines
  1. Getting rid of the Dos Cursor
  2. A pain in the ^$^!@$ if you dont know how to Right?
  3.  
  4. The Unit Cursor.pas - does it by simply calling the video interupt ($10)
  5. as shown in any good reference manual.
  6.  
  7. set AH to 01
  8. set CH to the High Scan Line
  9. set CL to the Low Scan Line
  10. and call interupt 10
  11.  
  12. How the scan lines work I'm not totally sure of
  13. But I have included the four basic types of cursors
  14. You can play around to find anything else.
  15.  
  16. If You Don't have access to the Hi and Lo functions of Turbo Pascal 7.0
  17. then simply substitute the 'Left-Half' of the wordconstants for the Hi value
  18. and the 'Right-Half' for the Lo value.
  19. i.e.
  20.     SetCursor(UlCursor);
  21. or
  22.     Setcursor($0607);
  23. would be passed as
  24.     SetCursorScanLines($06, $07);
  25.  
  26. ***********************************************************************
  27. Standard Disclaimer Applies
  28. (I didn't write DOS so I can't be responsible for anything it does)
  29.  
  30.                                                                                     Tím Tám.
  31.